home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue57 / DataAwar / Listing1.pas next >
Encoding:
Pascal/Delphi Source File  |  2000-04-04  |  200 b   |  10 lines
  1. TPet = (Dog, Cat, Rabbit, Mouse, Gerbil, Budgie, à);
  2. TPets = set of TPet; 
  3. type
  4.   TPerson = class
  5.   private
  6.     FPets: TPets;
  7.   public
  8.     property Pets: TPets read FPets write FPets;
  9.   end;
  10.